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Teper pong may arene 
ie 

't COPYRIGHT (c) 1978, 1980, 1982, 1984 

't DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS RESERV 

ie THIS SOFTWARE IS get tae UNDER A LICENSE AND MAY BE USED AND corre 
'® ONLY IN oe DANCE WITH THE TERMS OF vere” bi CENSe AND WITH THE 
!@ INCLUSION OF iy & aon COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vinnesckadee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


‘@ 
'® He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
He SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i CORPORATION. 

i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

f conaneucnnennnaeneqnannnesenndnoenebesebeedesnneseaneoeneenenenenneseess 


lee 
7 FACILITY: FIIACP Structure Level 1 
i ABSTRACT: 
This routine extends a directory file. 
i ENVIRONMENT : 


stem ey operating system, including privileged system services 
and internal exec routines. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 
i MODIFIED BY: 


A0101 ACGO121 Andrew C. Goldstein, 16-Jan-1980 22:57 
Make context save and restore into subroutines 


A0100 aceooogs Andrew C. Col datetn. 10-Oct-1978 20:02 
Previous revision history moved to FI1A.REV 


15-Apr-1977 13:25 
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1 LIBRARY ‘SYSSLIBRARY L32' 

REQUIRE 'SRC$:FCPDEF 543% 

1 

1 FORWARD ROUTINE 

1 EXTEND _DIR, ! extend directory file 

1 HANDLER; ' Local condition handler 
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GLOBAL ROUTINE EXTEND_DIR = 


14 
1 
FUNCTIONAL DESCRIPTION: 


This routine extends ? directory file. If allocated but unused space is 
resent, this means s mply push ng back oe EOF and materializing a 
Logs of zeroes. If the file is to be phys se hy extended. t is 

copied to a new location on the disk to keep it contiguous. Note 

this routine will not do a non-contiguous extend if the above fails, 

r does it {nolement the gutgnat ic conversion of Renecent tqusus 
directories found in RSX-11. The frequency of use of these is deemed 
too low to be worthwhile. 


a PP 
NOs {SSS 
VEWwnN— 


CALLING SEQUENCE: 
EXTEND_DIR () 


INPUT PARAMETERS: 
NONE 


I 
DIR_FCB: FCB of directory file 
DIR_WINDOW: window of directory 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DIR_RECORD: record number of first available record created 
ROUTINE VALUE: 


PLLLLLLLLLLL LPS eooesccoosscooocs 
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address of next directory record to use 


SIDE EFFECTS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

' 

; 

: 

; 

H 

: IMPLICIT INPUTS: 
: 

: 

: 

: 

' 

' 

' 

i 

i 

' 

: directory extended, storage map altered, directory FCB & windows altered 
te 
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1 

1 

1 

1 

} 04 

: O¢ 

: BEGIN 

1 BUILTIN 

' FP; 

1 LOCAL 

1 FIB : REF BBLOCK, ' address of FIB for this operation 
1 FCB : REF BBLOCK, ! address of FCB for directory 

1 HEADER : REF BBLOCK, ‘ address of eivoctory file header 
1 NEXT_VBN, ! meet directory VBN to use 

1 NEW_SIZE, ' size to extend directory to 

1 NEW_LBN, ! starting LBN of new space 

1 LBN ' current LBN in copy 

1 BUFFER i buffer address of current directory block 
1 MAP_AREA : REF BBLOCK, | address of file header map area 

1 MAP_POINTER : REF BBLOCK, ! pe nter to current retrieval pointer 
! NEXT_LBN; ! LBN of next block to use 
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Fig = ret 
CHSMOVE cr iBss "Pio. LOCAL_FIBCFIBSW_D1D), FIBLFIBSW_FIDI); 


HEADER = READ_HEADER (0, .FCB); 


!' The next VBN to use is the current directory eof block number. If the block 
is not present in the file, the directory must be physically extended. 


o 
-_ 


NEXT_VBN = .FCBCFCBSL_EFBLK) + 1; 


A a ae GTRU .FCBCFCBSL_FILESIZE) 
BEGIN 


te the number of blocks needed (50% of fhe gureens directory size) 
he number o ocks 


' Compu 
' and allocate the new fPace gent *quousty. Lim 
: f n the map area of the header. 


' allocated to what will 
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EXTDIR bse -1984 01:01: VAX-11 Bliss-32 V4.0-742 4 
: Haat 1 93:93:95 DISKSVMSMASTE eRSCHI FITA.SRCJEXTDIR. 832; 429 (2) 

= EXTERNAL ca F18 BBLO ! FIB for main fil i 

3 : ' or main e@ operation 

; (1 SECOND FIB : BBLO ' FIB for secondary 0 operations 

3; 3 DIR_FCE : OCK, ! address of directory 

2 DIR_WINDOW : OCK, : ederess | Pe directory 4 ndow 

3; (1 PRIMARY FCB : ! le in process 

3; 13) UNREC_COUNT, ! count a unrecorded blocks 

mM ¢ UNREC _LBN ! starting LBN of unrecorded blocks 

; } DIR_RECORD; ! record number of directory entry 

i ia eenen SAVE CONTEXT trant 

3 ' save reentrant context area 

4% RES ORE CONTEXT, i restore reentrant context area 

. ra HEADER ' read file hea 

; 139 Lot BLOCKS ' allocate blocks. from storage map 

: 160 AETURA brocks, ' return blocks to storage map 

3 (161 MAP_VBR ! map virtual to logical 

: 148 READ BLOCK, i read a disk block 

3; (14 RESET_LBN ! ass n new LBN to buffer 

> 164 ITE“BLOCK, i write block to disk 

3 «(145 CREATE BLOCK, ' fabricate a block buffer 

: 146 INVALIBATE ' invalidate a butter 

: 14 TRUNCATE HEADER, i truncate file header 

3 138 CHECKSUM, ' compute file sooner " chochous 

: 16 WRITE HEADER, i write file hea 

; 150 INIT ' update file soarret bloc 

; 13 ZERO “windows; i Ynvalidate related file aa 

; 13 

s 156 ' First save the current context, since this is a secondary file operation. 

; 133 Set up the secondary context pointers. Then read the directory file header. 

i 43 

; «158 pave ecorrest 

; 159 FCB = ‘tip = .DIR_FCB; 

: 160 
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AR = .HEADER + .HEADER ence W188 ea be J*2; 


-FCBCFCBSL_FILES MAXU (.FCBCFCBSL_FILESIZEI/2. 1) 
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1-00-1964 93:93:93 UNKSUMGRASTER SEY TiAccReDEKTDIR.B32;1°%" (23 

CRCECOSL FILESI7EI GEQU 2068 THEN ERR EXIT (SS$_DIRFULL); 

1 
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THEN NEW_SIZE = 2048; 
BSV A CON) = 1; 
BSV"FILCON) = 1; 
BLOCKS 1B, NEW SIZE, NEW_LBN, NEW SIZE); 
ts gietss Mf 12e5~ 


he directory data from the old directory file to the newly 
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ROM 1 TO .FCBCFCBSL_FILESIZE] DO 


err ces. STLBN) wee 
.VEN + .FCBLFCBSL_STLBN] - 
BN = MAP "vBN (.VBN, .DIR TUINDOW; 


UFFER = READ BLOCK (BN, 1 DIRECTORY TYPE) ; 
RESET_LBN (.BOFF ;VEN + .NEW_LBN = 19; 
WRITES “pees BUFFERS 


—> DS — — — _ _b —  _ _ d  _ _ 
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Ses n 


! Now deallocate the se gresrery Ot blocks. Then build retrieval pointers 
' for the new blocks in the f eader. Do the truncation with a local 
! condition handler enabled for special error recovery. 


-FP = HANDLER; 
TRUNCATE HEADER (.FIB, .HEADER, DEALLOC_BLOCKS); 


= 
MAP_POINTER = .MAP_AREA + FM1SC_POINTERS; 


dO 
BEGIN 
MAP_AREACFM1$B8_INUSE] = .MAP_AREACFMISB_INUSE] + 2; 


MAP_POINTER EMI SB -HIGHLBN) ‘. «new LBN<16,8>; 
AP “POINTERLFM1$B~ COUNT (RE siz6. # 256) - 1; 

MAP-POINTER FMISW~ Lowa] = vie ew *LBNZ 
MAP“POINTER = .MAP_POI 


NEW_LBN = .NEW LBN + MIN (.NEW ; 
NEWSIZE = .NEQ_SIZE - MIN NEU Sise° Sti, 


UNTIL .NEW SIZE EQL 0; 


a Pe a at ts 
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tt ad dt Solo 
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0; 
NEADEREFHY SV, CONTIG] = 1; ! mark file contiguous 
KERNEL_CALL TZERO TSinpovs, FCB); 
END; ! end of directory extension 


! Now that we have enough space in the directory, push the end of file 
i mark back one block and materialize the new block in memory. Also 
! update the FCB and flush any windows on it. 
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Sep-1 201: VAX-11 Bliss-32 V4,0-742 
iEseertgge (1:01:98 YMCILAUREEEZ RUZ aceroue ose. F 
' 
BBLOCK [HEADER[FHISW_RECATTR], FATS$W_EFBLK NEXT_VBN + 1; 
BBLOCK HEADEREEHTSU-R RECA ATTRI. FATSW™ Fret ie 6; 
KERNEL_CALL (INIT eB cB HEADERS 
OCK”CtH RDERCENTSU, hetas Al, FATSW_HIGLKL] = .FCBCFCBSL_FILESIZE); 
CHECKSUM (HEADER); 
TE_HEADER (); 
NEXT Len 2 {. 
I Fc off STLAN] NEQ 0 
HEN .FCBLFCBSL La! BN) + .NEXT_VBN = 1 
LSE (.REXT_VBN, .DIR_QINDOW) 
eur FEA = cneate BLOCK (.NEXT_LBN, 1, DIRECTORY_TYPE); 
DIR_RECORD = (.REXT_ 1)7* 38 4°41; 
Finally switch beck to primary context. 
RESTORE_CONTEXT (); 
RETURN .BUFFER; 
END; ! end of routine EXTEND_DIR 
.TITLE EXTDIR 
“IDENT \V04=000\ 
.EXTRN LOCAL_FIB, SECOND _FIB 
SEXTRN DIR_FCB, DIR_WINDOW 
“EXTRN PRIMARY. FCB, UNREC_COUNT 
SEXTRN UNREC_LBN, BIR_RECORD 
*EXTRN SAVE _CONTEXT, RESTORE CONTEXT 
SEXTRN READ~ HEAD DER. ALLOC_BLOCKS 
*EXTRN RETURN 
*EXTRN 


OFFC 00000 
28 000000006 9 9F 95 MOV 
4 SUBL 


wine foe 


7 0000G CF 5 
a? 00006 CF 3 
E De 


READ Bcotks reset _C 
WRI 


HECKS A 
INIT FCB, ZERO_QINDOWS 
SYSSCMKRNL 


SCODES ,NOWRT 2 


OMT’ Save R2,R3,R4,R5,R6,R7,RB,R9,- 
QUSTSSCAKRNL, R11 


SAVE -CONTEXT 
oh FCB 
FCB; sa ehinany Ffce 


econ VOCAL BF btt0, 4(F 1B) 
FCB 
-(SP) 
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$4000 1o7838-1882 93:95:93 | Phd haSfeRscHtiXconesexrore.e32:1°%" 25 


00006 gf CALLS #2, READ_HEADER : 
4 MOVL. RO, HEADER : 
53 35 A ADDL3 #1, 60(FCB), NEXT_VBN : 482 
CPL Mgaee 56(F CB) : 
01 t BRW 128 : 
5 01 A 1$: MOVZBL 1(HEADER), RO + 0493 
644 ROVAY (HEADER) CROJ, MAP_AREA : 
50 38 COA Div. ae. (FCB), RO + 0494 
30 86 2$ Novas eee cFeBYCR NEW_SIZE ; 
00000800 § § Ag CMPL S6(rcb Fo0k8 ’ + 0495 
g BLSSU F 
0860 &F CHAU #2144 : 
00000800 8F t 3$ CPL NEW.SIZE, #2048 + 0496 
6 0800 &F MOVZWL #2048, NEW SIZE : 
16 A 5 75 4$: B1SB2 ae tat) + 0499 
E PUSHL SP + 0500 
08 AE PUSHAB NEW_LBN : 
08 A PUSHL NEW"SIZE : 
5 PUSHL FIB : 
0006 CF 04 CALLS #4, ALLOC_BLOCKS : 
0006 CF AE MOVL § NEW_SIZE,~UNREC_COUNT + 0501 
0006 gf 9% \3 MOVL #$ NEW LBN, UNREC_CBN : 0502 
8 8 A MOVL  56(FCB). R8 : 0508 
5 CLAL VBN 3 
4 BRB $ ; 
30 6 5$: TSTL 48(FCB) + 0510 
08 BEQL ; 
50 55 30 A ADDL3 48(FCB), VBN, RO : 0511 
59 FF OA MOVAB -1(R0), LBN ; 
OE BRB 7$ : 
00006 CF 6$: PUSHL DIR_WINDOW : 0512 
5 PUSHL BN ; 
00006 ce CALLS #2, MAP_VBN : 
9 B6 MOVL RO, LBN 3 
B9 7$: PUSHL # : 0514 
1 BB PUSHL # ; 
BD PUSHL L : 
00006 CF BF CALLS #3, READ BLOCK : 
A cs MOVL. RO. BUFFER : 
50 5 04 AF ¢ ADDL3. NEW LEN, VBN, RO > 0515 
FF OA CC PUSHAB -1(RO) : 
a CF PUSHL BUFFER ; 
00006 CF 2 FB 00001 CALLS #2, RESET_LBN ; 
A 0D 06 PUSHL BUFFER > 0516 
00006 CF 1 Fe D CALLS #1, WRITE_BLOCK F 
6D 0000v CF 9E OO0E MOVAB HANDLER, (FP) : 0524 
1 DD E6 PUSHL > 0525 
4 DD OO0E PUSHL HEADER ; 
00006 CF § PD Oboe Peete bde rRUNCATE HEADER : 
6D fe Fy CLRL CFP) ¥ : 0526 
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EXTDIR bese Sep-1 VAX-11 Bliss-32 V4.0-742 EXT 
FOeb00 i at 7 9}: 93: $3 DISKSVMSMASTER:CF11A.SRCJEXTDIR.B32; 1 age (3 v04 
5 OA A F (R2), MAP_POINTER ; ; 
08 A 0 DOOF? 9S: ADDS se, Staab AREA) F : ; 
: 06 A ; DOF nove N W.LENS2, a (iP POINTER) : : 
00000100 = &F CMPL OR 5385 : : 
1 BLEG Ss f : ; 
1 0100 =&F HOVZ¥L #256, R1 : 3 
01 Ad 1 1 10$:  $UBB3 #1, R1, 1(MAP_POINTER) : ; 
02 A 04 AE BO 0011 MOVW W_LBN, 2(MAP_POINTER) : ; 
; BS SSiis BL? eg urea ; : 
00000100 «BF p cMPL ‘ ~phee : ; 
51 0100 «BF MOVZWL #256, R1 : 
04 AE 1 ¢ 11$:  ADDL2 1, NEW_LBN : 
6E z- SUBL2 1, NEW SIZE : 
6E p TSTL wew. 128 3 
00006 BF 4 9 aNaL ONREC : 
OC Ab 88 F Bs BI1SB2 # 2b. ~{SUNEADER) ; 
6 DD 0014 PUSHL : 
1 DD 00144 PUSHL aie ; 
E DD 46 PUSHL $P : 
00006 CF 9F 0014 PUSHAB ZERO_WIND F 
$8 4 F 4C CALL a. Sys Schk 3 
18 AG 5 1A 4F 12$:  ADDW NEXT VEN, 4 (HEADER) : 
1A Aa BG 4 CLRW 2b ue ; 
34 DD 7 PUSHL ; 
$ DD 9 PUSHL ; 
g DD 8 PUSHL ae F 
E DD 30 PUSHL : 
00006 cr F f 5 INI FCB ; 
6B 5 F 63 CALLS #5, SYSS$CMKRNL : 
16 AG 38 «Ab OB 66 MOVW ee 20 (HEADER) ; 
4 DD 00168 PUSHL ADER : 
000G CF 1 FB CALLS #1, CHECKSUM ; 
000G CF 0 F CALLS # WRITE “HEADER : 
30 A : 7 TSTL © 4B (FCB ; 
0 7A BEQL ; $ F 
50 53 30 As C 7¢ ADDL3 48(FCB), NEXT_VBN, RO F 
30 D7 1 DECL NEXT_LBN ; 
11 BRB 14$ ; 
00006 DD 13$: PUSHL DIR_WINDOW ; 
DD PUSHL NEXT VBN ; 
00006 CF FB CALLS #2, MAP_VBN F 
DD 14$:  PUSHL @# : 
DD 0019 PUSHL @# F 
DD PUSHL NEXT_LBN ; 
00006 CF E CALLS #3, CREATE_BLOCK ; 
A D MOVL RO. BUFFER ; 
3 ¢ MULL2 #36 R3 ; 
G CF AS SE OOIA MOVAB -31(R3), DIR_RECORD ; 
006 cf Q F A? CALLS #0, RESTORE_CONTEXT ; 
0 A p AC ROVL BUFFER, RO ; 


3; Routine Size: 432 bytes, Routine Base: S$CODE$ + 0000 
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ROUTINE HANDLER (SIGNAL, MECHANISM) = 


> | 


'e¢ 
i 
FUNCTIONAL DESCRIPTION: 


This routine is the condition handler for directory extension. It is 
enabled only during the truncate call Cdeal locating the old directory 
blocks). Normal error handling would cause the entire directory to 

be eronged on the floor. Since we ecroeey have a new good copy, we 
should forge gheed. Note that no error status is returned to the user, 


SIDE EFFECTS: 
file header map area cleaned out 


e 
6 
63 

' 
71 ! 

' 
8 
74 ‘ 
75 ! 
76 ; although we lL log a system error. 
7 i 
i 9 ' CALLING SEQUENCE: 

: 3 : HANDLER (ARG1, ARG2) 
: 2c i INPUT PARAMETERS: 
595 ! ARG1: address of signal array 

Se 238 ARG2: address of mechanism array 
Be 598 1 | IMPLICIT INPUTS: 
Hf 44 FILE_HEADER: address of directory file header 
89 06a i QUTPUT PARAMETERS: 
90 § ! NONE 
91 06 : 
35 ! IMPLICIT OUTPUTS: 
.] 05 NONE 
95 09 i ROUTINE VALUE: 
4 0608 SS$_RESIGNAL or none if unwind 
98 i 
99 | 

* 


1 
1 - 
1 
: BEGIN 
1 
1 SIGNAL : REF BBLOCK, ! signal array arg 
1 MECHANISM : REF BBLOCK; ! mechanism array arg 

LOCAL 

MAP_AREA : REF BBLOCK; ! address of header map area 


EXTERNAL 
FILE_HEADER : REF BBLOCK; ! address of directory file header 


EXTERNAL ROUTINE 
SYSSUNWIND : ADDRESSING_MODE (ABSOLUTE); 
' system unwind service 
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! Check the condition goge for FCP error exit and check that it is not a 
! write error. Then initialize the header’s map area and unwind. On other 
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Routine Size: 


33 


Name 
SCODES 


064 


PES ISS Se 


5 | signals we simply resignal. 


RETURN SS$_RESIGNAL; 
END; 
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00000424 
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00 


7E 08 ac 
000000006 9F 
50 0918 


66 bytes, Routine Base: 
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PSECT SUMMARY 
Bytes 


N 

P_AREA = .FILE_HEADER + 
RAP pAREALF Mi 88 IRUSE 
CHSFILL 


7 
F 


498 NOVEC,NOWRT, 


18-00-1904 01:01:28 YANG alias 32 y4.Qe742, Page 11 


tt ek » SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 


- FILE HEADERCFH1SB_MPOFFSETJ*2; 


0, .MAP yi ATH LAVAIL]#2, .MAP_AREA + FM1SC_POINTERS); 
SYSSUNWIND (MECHANISMCCHFSL_MCH_DEPTHI, 0); 


' status is irrelevant if unwind 


! ena of routine handler 


SCODES + 0180 


-EXTRN 
3C 00000 HANDLER: .WORD 
DO 0000 MOVL 
01 85 CMPL 
is S44 BNEQ 
DO 0001 MOVL 
3 4 fh MOVZBL 

E 00019 MOVAW 
94 00010 CLRB 
9A 8p 0 MOVZBL 
C4 4 4 ULL 
2c 4 7 MOVC 
D4 000 CLRL 
C1 000 ADDL3 
FB Oos CALLS 
3C B86 C 1$ MOVZWL 
04 00041 RET 

Attributes 
RD , EXE,NOSHR, LCL, 


FILE_HEADER, SYSSUNWIND 
Save .- R3,R4,R5 
RO), #1060 
EADER, R1 
RO}, MAP_AREA 
AREA) 
“AREA), R1 
SP), #0, R1, 


i" 
~— fT) 
z~ a= oo 

=) xz -- 


& 
Aan 


= Boon 1 FY 


MNO ON--D-—-Fn- 
a 


10(MAP_AREA) 


wv 


HANISM, =(SP) 
VSSUNWIND 


lee = WM 28 2 
m 
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co 
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REL, CON,NOPIC,ALIGN(2) 


0577 
0637 


0640 


0641 
0642 


0644 


0647 
0649 


Pete Ge Ge Ge Se Ge Se Ge Se Ge Be Be Be Be Be Ge 


EXT 
v04 


¥b4-000 if: 0-19 93:95:93 UNS cbimGmaSfensch tik: seezexroir.e32:4°% 


Library Statistics 


ouscesse Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA28: CSYSLIBILIB.L32;1 18619 26 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS:EXTDIR/OBJ=OBJ$:EXTDIR MSRC$:EXTDIR/UPDATE=(ENHS$:EXTDIR) 


; Sizes 498 0743.5 + 0 data bytes 
un Time 


Sleeten” Time: :3 3 
Lines/CPU Min: 183° 
Lexemes/CPU-Min: 13762 
penety Used: 163 pages 
Compilation Complete 


° i 


<m 
5 


AL EQUIPMENT CORPORATION 


AH-BT13A-SE 
DENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


0165 


